PGM=ICET00L

SORT: JOINKEY 文件连接 

//STEP002 EXEC  PGM=SYNCSORT,REGION=4096K,COND=(0,NE)        
//SYSOUT   DD SYSOUT=*                                       
//SYSPRINT DD  SYSOUT=*                                      
//SORTJNF1 DD  DSN=FILE1,DISP=SHR                            
//SORTJNF2 DD  DSN=FILE2,DISP=SHR                            
//SORTOUT  DD  DSN=JOINOUT,DISP=SHR                          
//SYSIN DD *                                                 
  JOINKEYS FILE=F1,FIELDS=(1,5,A)                            
  JOINKEYS FILE=F2,FIELDS=(1,5,A)                            
  REFORMAT FIELDS=(F1:1,5,F2:6,35)                           
  SORT FIELDS=(1,5,CH,A)                                     
  SUM FIELDS=NONE                                            
/*                                                           
//*

FILE1和FILE2必须按key值sort好，这里Join的key为前5个字符，结果只保留所有FILE1的KEY值。输出的格式为File1的前5位+File2第6开始的35位。

SUM FIELDS=NONE

用于去掉KEY值重复的那些记录。

Comments !